Electronic Clipper 1998 November/Electronic Clipper 1998-11.iso/Idea Source®/teaser.dir/00062_Script_lockpick

Text File | 1998-08-25 | 431b | 31 lines

on mousedown me
  global picklock

  if picklock=1 then
    cursor -1
    set picklock=0
    set the loc of sprite 16 to point(48, 447)
    exit
  end if

  if picklock=0 then
    cursor 200
    set picklock=1
  end if
end

on exitframe me
  global picklock
  if picklock=1 then
    set the locv of sprite 16 to the mousev
    set the loch of sprite 16 to the mouseh
  end if
end